Option Explicit
Sub A_Sample048()
    Dim mySht1 As Object
    Dim mySht2 As Worksheet
    'ǳƨ즹
    Set mySht1 = ActiveSheet
    If mySht1.Type = xlWorksheet Then
        Set mySht2 = mySht1
        MsgBox mySht2.Name
    Else
        MsgBox "̫eOu@"
    End If
    Set mySht1 = Nothing	'
    Set mySht2 = Nothing
End Sub
